home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
scope
/
001-025
/
scopedisk7
/
rxutil
/
ports.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-03-18
|
287b
|
13 lines
/* ports - test ports actions */
say 'Waiting for packet from ports2.rexx'
say ' '
call openport("testport")
call waitpkt('testport')
packet = getpkt('testport')
pktstring = getarg(packet)
call reply(packet,0)
say 'This is printed from ports.'
say 'Packet string is:' pktstring
exit(0)